Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar/1995/JUL/CJ9507/unit1.dfm/unit1.txt

Text File | 1995-06-01 | 6KB | 274 lines

object Form1: TForm1
  Left = 111
  Top = 115
  Width = 626
  Height = 387
  Caption = 'Form1'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 40
    Top = 66
    Width = 91
    Height = 16
    Caption = 'Order Number'
  end
  object Label2: TLabel
    Left = 31
    Top = 105
    Width = 99
    Height = 16
    Caption = 'Customer Code'
  end
  object Label3: TLabel
    Left = 31
    Top = 138
    Width = 102
    Height = 16
    Caption = 'Employee Code'
  end
  object DBText1: TDBText
    Left = 288
    Top = 104
    Width = 267
    Height = 17
    DataField = 'CustName'
    DataSource = DataSource1
  end
  object DBText2: TDBText
    Left = 288
    Top = 136
    Width = 241
    Height = 17
    DataField = 'EmpName'
    DataSource = DataSource1
  end
  object Label4: TLabel
    Left = 117
    Top = 19
    Width = 353
    Height = 24
    Alignment = taCenter
    Caption = 'Truly Deep Diving Custom Order Form'
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = 'Poppl-Laudatio Regular'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 27
    Top = 171
    Width = 72
    Height = 16
    Caption = 'Line Items:'
  end
  object DBEdit1: TDBEdit
    Left = 140
    Top = 61
    Width = 121
    Height = 24
    DataField = 'OrderNo'
    DataSource = DataSource1
    MaxLength = 0
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 140
    Top = 100
    Width = 121
    Height = 24
    DataField = 'CustNo'
    DataSource = DataSource1
    MaxLength = 0
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 140
    Top = 132
    Width = 121
    Height = 24
    DataField = 'EmpNo'
    DataSource = DataSource1
    MaxLength = 0
    TabOrder = 2
  end
  object DBNavigator1: TDBNavigator
    Left = 286
    Top = 59
    Width = 241
    Height = 25
    DataSource = DataSource1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object DBGrid1: TDBGrid
    Left = 14
    Top = 190
    Width = 571
    Height = 121
    DataSource = DataSource2
    TabOrder = 4
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'System'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 230
    Top = 322
    Width = 113
    Height = 25
    Caption = 'E&xit'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Table5: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'EMPLOYEE.DB'
    Left = 318
    Top = 234
    object Table5EmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object Table5LastName: TStringField
      FieldName = 'LastName'
    end
  end
  object Table4: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 285
    Top = 236
    object Table4CustNo: TFloatField
      FieldName = 'CustNo'
    end
    object Table4Company: TStringField
      FieldName = 'Company'
      Size = 30
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 188
    Top = 201
  end
  object Table1: TTable
    Active = True
    OnCalcFields = Table1CalcFields
    DatabaseName = 'DBDEMOS'
    TableName = 'ORDERS.DB'
    Left = 188
    Top = 234
    object Table1OrderNo: TFloatField
      FieldName = 'OrderNo'
      Visible = False
    end
    object Table1CustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
    object Table1EmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
    end
    object Table1CustName: TStringField
      Calculated = True
      FieldName = 'CustName'
    end
    object Table1EmpName: TStringField
      Calculated = True
      FieldName = 'EmpName'
    end
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'PARTS.DB'
    Left = 254
    Top = 233
    object Table3PartNo: TFloatField
      FieldName = 'PartNo'
    end
    object Table3Description: TStringField
      FieldName = 'Description'
      Size = 30
    end
    object Table3ListPrice: TCurrencyField
      FieldName = 'ListPrice'
      Currency = True
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 221
    Top = 201
  end
  object Table2: TTable
    Active = True
    OnCalcFields = Table2CalcFields
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = DataSource1
    TableName = 'ITEMS.DB'
    Left = 222
    Top = 234
    object Table2OrderNo: TFloatField
      FieldName = 'OrderNo'
      Visible = False
    end
    object Table2ItemNo: TFloatField
      DisplayWidth = 7
      FieldName = 'ItemNo'
    end
    object Table2PartNo: TFloatField
      DisplayWidth = 9
      FieldName = 'PartNo'
    end
    object Table2Description: TStringField
      Calculated = True
      DisplayWidth = 18
      FieldName = 'Description'
    end
    object Table2Qty: TIntegerField
      DisplayWidth = 10
      FieldName = 'Qty'
    end
    object Table2Price: TCurrencyField
      Calculated = True
      DisplayWidth = 10
      FieldName = 'Price'
      Currency = True
    end
    object Table2Total: TCurrencyField
      Calculated = True
      DisplayWidth = 10
      FieldName = 'Total'
      Currency = True
    end
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 253
    Top = 201
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 284
    Top = 202
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 317
    Top = 203
  end
end